Freelog 55

home *** CD-ROM | disk | FTP | other *** search

/ Freelog 55 / Freelog055.iso / Bas / Jeu / 3DBubbleBobble / DBPro Source Code / 3D Bubble Bobble.dba next >

Wrap

Text File | 2003-04-06 | 66KB | 1,815 lines

Rem Project: 3D Bubble Bobble Rem Created: 06/02/2003 17:58:27 Rem ***** Main Source File ***** rem **object numbers** rem 1 - player object rem 10 to 100 - player 1 bubbles rem 200 to 249 - enemies rem 250 to 299 - enemy bullets rem 300 to 350 - bonus pickups rem 1000 - level object rem 1001 to 2000 - level platforms rem 6000 to 6005 - big bonus objects rem 7000 to 7100 - mini_bonus objects rem **image numbers** rem 1 - player texture rem 100 to 150 - enemy textures rem 1000 to 1005 - level wall/ceiling textures rem program setup hide mouse autocam off color backdrop 0 set ambient light 65 set normalization on randomize timer() rem player variables type player life as integer size_x as integer size_y as integer size_z as integer pos_x as float pos_y as float pos_z as float old_pos_x as float old_pos_y as float old_pos_z as float ang_x as float ang_y as float speed as float jump as float jump_angle as float control as float gravity as float animate as integer fire_rate as integer fire_animation as integer death_animation as integer invincible as integer invincible_timer as integer score as integer extra_life as integer endtype player as player rem player 1 setup player.life=-1 player.size_x=24 player.size_y=35 player.size_z=32 player.speed=3 player.control=1 rem enemy variables type enemy object_num as integer enemy_type as integer bonus as integer life as integer trapped as integer hit_wall as integer size_x as integer size_y as integer size_z as integer pos_x as float pos_y as float pos_z as float old_pos_x as float old_pos_y as float old_pos_z as float ang_y as float speed as float jump as float jump_angle as float gravity as float animate as integer shot as integer max_shots as integer ai_dest_ang_y as float ai_turn_dir as integer fire_rate as integer animation_speed as integer texture_num as integer value as integer mad as integer fly_dir as integer endtype dim enemy(15) as enemy type enemy_bullet pos_x as float pos_y as float pos_z as float ang_y as float life as integer endtype dim enemy_bullet(15) as enemy_bullet rem player bubble variables global max_bubbles max_bubbles=60 type player_bubble pos_x as float pos_y as float pos_z as float old_pos_x as float old_pos_y as float old_pos_z as float ang_x as float ang_y as float speed as float gravity as float scale as integer life as integer enemy_trapped as integer endtype dim player_bubble(max_bubbles-1) as player_bubble rem bonus variables type bonus bonus_type as integer object_num as integer pos_x as float pos_y as float pos_z as float old_pos_x as float old_pos_y as float old_pos_z as float gravity as float value as integer life as integer jump as float jump_angle as float endtype dim bonus(20) as bonus global bonus_qty global level_bonus_qty rem moving platform variables global moving_platform_qty type moving_platform pos_x as float pos_y as float pos_z as float old_pos_x as float old_pos_y as float old_pos_z as float waypoint_qty as integer next_waypoint as integer endtype dim moving_platform(8) as moving_platform rem moving platform waypoint array (number of platforms, number of way points) dim platform_wp_x(8,5) dim platform_wp_y(8,5) dim platform_wp_z(8,5) rem camera variables global camx# global camy# global camz# rem clickdelay variable global clickdelay rem enemy quantity varaiable global enemy_qty global live_enemies rem level name variable global level_number global level_qty level_qty=12 global level_start_time global level_timer global hurry_up global death_active global end_level global level_offset rem load sounds load 3dsound "media\sounds\pop.wav",1 load sound "media\sounds\jump.wav",2 load sound "media\sounds\baddie_kill.wav",3 load sound "media\sounds\bubble_shoot.wav",4 load sound "media\sounds\bub_die.wav",5 load sound "media\sounds\hurry.wav",6 load sound "media\sounds\bonus.wav",7 load sound "media\sounds\big_bonus.wav",8 load 3dsound "media\sounds\death.wav",9 rem load music load music "media\music\Bubble Bobble New Age Theme.mp3",1 rem load player texture load image "media\characters\bub.bmp",1 rem load bubble texture load image "media\effects\bubble.bmp",5 rem load enemy textures load image "media\characters\baddie_1.bmp",100 load image "media\characters\baddie_1a.bmp",101 load image "media\characters\baddie_2.bmp",102 load image "media\characters\baddie_2a.bmp",103 load image "media\characters\baddie_3.bmp",104 load image "media\characters\baddie_3a.bmp",105 load image "media\characters\baddie_4.bmp",106 load image "media\characters\baddie_4a.bmp",107 rem load other textures load image "media\effects\cloud.bmp",986 load image "media\effects\fire.bmp",987 rem setup player object load object "media\characters\bub.x",1 texture object 1,1 hide object 1 set object speed 1,100 make object collision box 1,0-(player.size_x/2),0-(player.size_y/2),0-(player.size_z/2),player.size_x/2,player.size_y/2,player.size_z/2,0 rem setup player bubble objects for a=10 to max_bubbles+10 make object sphere a,10,16,16 texture object a,5 ghost object on a hide object a make object collision box a,-27,-27,-27,27,27,27,0 next a rem setup death ghost object load object "media\characters\death.x",5 hide object 5 rem menu setup global menu menu=1 level_number=rnd(level_qty-1)+1 gosub new_level rem scoreboard setup global line$ global high_score rem scoreboard arrays dim scoreboard_name$(9) dim scoreboard_score(9) rem set default scoreboard names and scores scoreboard_name$(0)="Tom" scoreboard_score(0)=100000 scoreboard_name$(1)="Azazel" scoreboard_score(1)=75000 scoreboard_name$(2)="Cro" scoreboard_score(2)=50000 scoreboard_name$(3)="Maz" scoreboard_score(3)=25000 scoreboard_name$(4)="Karl" scoreboard_score(4)=20000 scoreboard_name$(5)="Rory" scoreboard_score(5)=15000 scoreboard_name$(6)="Amy" scoreboard_score(6)=10000 scoreboard_name$(7)="Bub" scoreboard_score(7)=5000 scoreboard_name$(8)="Bob" scoreboard_score(8)=1000 scoreboard_name$(9)="pepe" scoreboard_score(9)=500 remstart load scores from file if file exist("scores.dat")>0 open to read 1,"scores.dat" for a=0 to 9 read string 1,scoreboard_name$(a) read file 1,scoreboard_score(a) next a close file 1 endif remend rem set sync rate sync rate 60 sync on play sound 8 rem main game loop do rem game over if game_over>0 center text screen width()/2,screen height()/2,"Game Over" if timer()-game_over>3000 game_over=0 menu=1 rem set camera to follow an enemy for menu if enemy(enemy_cam).life<1 for a=0 to enemy_qty-1 if enemy(a).life>0 enemy_cam=a exit endif next a endif rem check if players score is a high score for a=0 to 9 if player.score>scoreboard_score(a) high_score=a+1 menu=0 clear entry buffer exit endif next a endif endif if menu>0 then gosub menu if high_score>0 then gosub high_score_entry if player.score>=player.extra_life and player.life>-1 player.life=player.life+1 player.extra_life=player.extra_life+100000 play sound 8 endif if hurry_up<1 rem moving platforms control if moving_platform_qty>0 object_num=2000 for a=0 to moving_platform_qty-1 moving_platform(a).old_pos_x=object position x(object_num) moving_platform(a).old_pos_z=object position z(object_num) point object object_num+2,platform_wp_x(a,moving_platform(a).next_waypoint),platform_wp_y(a,moving_platform(a).next_waypoint),platform_wp_z(a,moving_platform(a).next_waypoint) move object object_num+2,1 position object object_num,object position x(object_num+2),object position y(object_num+2),object position z(object_num+2) position object object_num+1,object position x(object_num+2),object position y(object_num+2)+10.5,object position z(object_num+2) x1#=object position x(object_num+2) x2#=platform_wp_x(a,moving_platform(a).next_waypoint) y1#=object position y(object_num+2) y2#=platform_wp_y(a,moving_platform(a).next_waypoint) z1#=object position z(object_num+2) z2#=platform_wp_z(a,moving_platform(a).next_waypoint) if distance_3d(x1#,x2#,y1#,y2#,z1#,z2#)<5 moving_platform(a).next_waypoint=moving_platform(a).next_waypoint+1 if moving_platform(a).next_waypoint>moving_platform(a).waypoint_qty-1 then moving_platform(a).next_waypoint=0 endif inc object_num,3 next a endif rem hold old player positions player.old_pos_x=player.pos_x player.old_pos_y=player.pos_y player.old_pos_z=player.pos_z rem player control if player.death_animation<1 and player.life>-1 rem reduce control if player is in air if player.gravity<>0 player.control=2 else player.control=1 endif rem w key to move forward if keystate(17)>0 player.pos_x=newxvalue(player.pos_x,player.ang_y,player.speed/player.control) player.pos_z=newzvalue(player.pos_z,player.ang_y,player.speed/player.control) if player.animate<1 then player.animate=1 endif rem s key to move back if keystate(31)>0 player.pos_x=newxvalue(player.pos_x,player.ang_y,-player.speed/player.control) player.pos_z=newzvalue(player.pos_z,player.ang_y,-player.speed/player.control) if player.animate<1 then player.animate=1 endif rem a key to strafe left if keystate(30)>0 player.pos_x=newxvalue(player.pos_x,player.ang_y-90,(player.speed/1.5)/player.control) player.pos_z=newzvalue(player.pos_z,player.ang_y-90,(player.speed/1.5)/player.control) if player.animate<1 then player.animate=1 endif rem d key to strafe right if keystate(32)>0 player.pos_x=newxvalue(player.pos_x,player.ang_y+90,(player.speed/1.5)/player.control) player.pos_z=newzvalue(player.pos_z,player.ang_y+90,(player.speed/1.5)/player.control) if player.animate<1 then player.animate=1 endif rem mousemovey to change players x angle player.ang_x=wrapvalue(curvevalue(player.ang_x+(mousemovey()*1.5),player.ang_x,5)) if player.ang_x>45 and player.ang_x<180 then player.ang_x=45 if player.ang_x>180 and player.ang_x<250 then player.ang_x=250 rem mousemovex to turn player (y angle) player.ang_y=wrapvalue(curvevalue(player.ang_y+(mousemovex()/player.control),player.ang_y,5)) rem space key to jump if spacekey()>0 and player.gravity=0 player.jump=2.5 if keystate(17)>0 then player.jump_angle=player.ang_y play sound 2 endif rem mouse click to shoot bubble if mouseclick()>0 and clickdelay<1 and player.fire_rate<1 clickdelay=1 for a=0 to max_bubbles-1 if player_bubble(a).life<1 player_bubble(a).life=timer() player_bubble(a).pos_x=player.pos_x player_bubble(a).pos_y=player.pos_y player_bubble(a).pos_z=player.pos_z player_bubble(a).old_pos_x=player.pos_x player_bubble(a).old_pos_y=player.pos_y player_bubble(a).old_pos_z=player.pos_z player_bubble(a).ang_y=player.ang_y player_bubble(a).speed=7 player_bubble(a).gravity=0 player_bubble(a).scale=100 player_bubble(a).enemy_trapped=-1 player.fire_rate=25 player.fire_animation=1 rotate limb 1,3,0,0,0 show object a+10 play sound 4 exit endif next a endif endif rem player fire rate control if player.fire_rate>0 then player.fire_rate=player.fire_rate-1 rem player jumping if player.jump>0 inc player.jump,0.5 if player.jump>4 then player.jump=0 player.gravity=player.gravity+player.jump endif if player.gravity<>0 and player.jump_angle>0 player.pos_x=newxvalue(player.pos_x,player.jump_angle,5) player.pos_z=newzvalue(player.pos_z,player.jump_angle,5) endif rem effect gravity on player if player.gravity>-25 then player.gravity=player.gravity-0.3 if player.gravity>-1.2 and player.gravity<0 then player.gravity=-1.2 player.pos_y=player.pos_y+player.gravity rem player to level collison old_x1#=player.old_pos_x-(player.size_x/2) old_y1#=player.old_pos_y-(player.size_y/2) old_z1#=player.old_pos_z-(player.size_z/2) old_x2#=player.old_pos_x+(player.size_x/2) old_y2#=player.old_pos_y+(player.size_y/2) old_z2#=player.old_pos_z+(player.size_z/2) x1#=player.pos_x-(player.size_x/2) y1#=player.pos_y-(player.size_y/2) z1#=player.pos_z-(player.size_z/2) x2#=player.pos_x+(player.size_x/2) y2#=player.pos_y+(player.size_y/2) z2#=player.pos_z+(player.size_z/2) if get static collision hit(old_x1#,old_y1#,old_z1#,old_x2#,old_y2#,old_z2#,x1#,y1#,z1#,x2#,y2#,z2#)>0 player.pos_x=player.pos_x-get static collision x() player.pos_y=player.pos_y-get static collision y() player.pos_z=player.pos_z-get static collision z() if get static collision y()<0 player.jump=0 player.jump_angle=0 player.gravity=0 endif if get static collision y()>0 player.jump=0 player.gravity=-0.1 endif endif rem player moving platform collision object_num=2000 for a=0 to moving_platform_qty-1 if object collision(1,object_num)>0 player.pos_x=player.pos_x-get object collision x() player.pos_y=player.pos_y-get object collision y() player.pos_z=player.pos_z-get object collision z() if get object collision y()<0 player.jump=0 player.jump_angle=0 player.gravity=0 player.pos_x=newxvalue(player.pos_x,atanfull(object position x(object_num)-moving_platform(a).old_pos_x,object position z(object_num)-moving_platform(a).old_pos_z),abs(object position x(object_num)-moving_platform(a).old_pos_x)) player.pos_z=newzvalue(player.pos_z,atanfull(object position x(object_num)-moving_platform(a).old_pos_x,object position z(object_num)-moving_platform(a).old_pos_z),abs(object position z(object_num)-moving_platform(a).old_pos_z)) endif if get object collision y()>0 player.jump=0 player.gravity=-0.1 endif endif inc object_num,3 next a rem reposition player after dropping into warp tunnel if player.pos_y<-500 player.pos_x=level_offset player.pos_y=3000 player.pos_z=0 player.jump_angle=0 endif rem player animation control if player.animate=1 loop object 1,5,25 player.animate=2 endif if player.animate>1 and keystate(17)<1 and keystate(30)<1 and keystate(31)<1 and keystate(32)<1 player.animate=0 play object 1,1,1 endif rem player fire animation if player.fire_animation>0 if player.fire_animation<50 rotate limb 1,3,0,0,limb angle z(1,3)-5 player.fire_animation=player.fire_animation+5 endif if player.fire_animation>50 rotate limb 1,3,0,0,limb angle z(1,3)+5 player.fire_animation=player.fire_animation+5 endif if player.fire_animation>95 player.fire_animation=0 rotate limb 1,3,0,0,0 endif endif rem player death animation if player.death_animation>0 player.ang_y=player.ang_y+10 player.death_animation=player.death_animation+1 rem end of death animation if player.death_animation>100 player.death_animation=0 rem if player has lives left make invincible else gameover if player.life>-1 player.invincible=2 player.invincible_timer=timer() ghost object on 1 else game_over=timer() rem hide player object hide object 1 endif endif endif rem flash player if invincible if player.invincible>1 if player.invincible=2 then ghost object on 1 if player.invincible=6 then ghost object off 1 player.invincible=player.invincible+1 if player.invincible>8 then player.invincible=2 if timer()-player.invincible_timer>5000 player.invincible=0 ghost object off 1 endif endif if menu<1 rem update player object positions and orientation position object 1,player.pos_x,player.pos_y,player.pos_z rotate object 1,0,player.ang_y,0 rem position listener position listener player.pos_x,player.pos_y,player.pos_z rotate listener 0,player.ang_y,0 rem player camera if player.death_animation<1 camx#=curvevalue(newxvalue(object position x(1),player.ang_y,-60),camx#,8) camy#=curvevalue(newyvalue(object position y(1)+50,player.ang_x,-60),camy#,5) camz#=curvevalue(newzvalue(object position z(1),player.ang_y,-60),camz#,8) position camera camx#,camy#,camz# point camera newxvalue(object position x(1),player.ang_y,60),newyvalue(object position y(1),player.ang_x,60),newzvalue(object position z(1),player.ang_y,60) else point camera object position x(1),object position y(1),object position z(1) endif endif rem death control if death_active>0 point object 5,object position x(1),object position y(1),object position z(1) move object 5,1.5 position sound 9,object position x(5),object position y(5),object position z(5) if distance_3d(object position x(1),object position x(5),object position y(1),object position y(5),object position z(1),object position z(5))<20 player.death_animation=1 player.life=player.life-1 level_start_time=timer() death_active=0 hide object 5 stop sound 9 play sound 5 endif endif rem enemy control loop for a=0 to enemy_qty-1 if enemy(a).life>0 rem hold old enemy positions enemy(a).old_pos_x=enemy(a).pos_x enemy(a).old_pos_y=enemy(a).pos_y enemy(a).old_pos_z=enemy(a).pos_z rem fire rate control if enemy(a).fire_rate>0 then enemy(a).fire_rate=enemy(a).fire_rate-1 if enemy(a).trapped<1 rem enemy ai control if enemy(a).enemy_type=1 then basic_ai(a) if enemy(a).enemy_type=2 then platform_patrol_ai(a) if enemy(a).enemy_type=3 then springer_ai(a) if enemy(a).enemy_type=4 then ghost_ai(a) if enemy(a).enemy_type=5 then ghost_patrol_ai(a) if enemy(a).enemy_type=6 then flying_ghost_ai(a) rem jumping if enemy(a).jump>0 inc enemy(a).jump,0.5 if enemy(a).jump>4 then enemy(a).jump=0 enemy(a).gravity=enemy(a).gravity+enemy(a).jump endif if enemy(a).gravity<>0 and enemy(a).jump_angle>0 enemy(a).pos_x=newxvalue(enemy(a).pos_x,enemy(a).jump_angle,5) enemy(a).pos_z=newzvalue(enemy(a).pos_z,enemy(a).jump_angle,5) endif rem effect gravity on enemys if enemy(a).gravity>-25 then enemy(a).gravity=enemy(a).gravity-0.3 if enemy(a).gravity>-1.2 and enemy(a).gravity<0 then enemy(a).gravity=-1.2 enemy(a).pos_y=enemy(a).pos_y+enemy(a).gravity rem enemy to player collision if object hit(enemy(a).object_num,1)>0 and player.invincible<1 and player.life>-1 and player.death_animation<1 player.death_animation=1 player.life=player.life-1 level_start_time=timer() enemy_cam=a if death_active>0 death_active=0 hide object 5 stop sound 9 endif play sound 5 endif rem enemy to level collison old_x1#=enemy(a).old_pos_x-(enemy(a).size_x/2) old_y1#=enemy(a).old_pos_y-(enemy(a).size_y/2) old_z1#=enemy(a).old_pos_z-(enemy(a).size_z/2) old_x2#=enemy(a).old_pos_x+(enemy(a).size_x/2) old_y2#=enemy(a).old_pos_y+(enemy(a).size_y/2) old_z2#=enemy(a).old_pos_z+(enemy(a).size_z/2) x1#=enemy(a).pos_x-(enemy(a).size_x/2) y1#=enemy(a).pos_y-(enemy(a).size_y/2) z1#=enemy(a).pos_z-(enemy(a).size_z/2) x2#=enemy(a).pos_x+(enemy(a).size_x/2) y2#=enemy(a).pos_y+(enemy(a).size_y/2) z2#=enemy(a).pos_z+(enemy(a).size_z/2) if get static collision hit(old_x1#,old_y1#,old_z1#,old_x2#,old_y2#,old_z2#,x1#,y1#,z1#,x2#,y2#,z2#)>0 if get static collision x()=0 and get static collision z()=0 enemy(a).hit_wall=0 else enemy(a).hit_wall=1 endif enemy(a).pos_x=enemy(a).pos_x-get static collision x() enemy(a).pos_y=enemy(a).pos_y-get static collision y() enemy(a).pos_z=enemy(a).pos_z-get static collision z() if get static collision y()<0 enemy(a).jump=0 enemy(a).jump_angle=0 enemy(a).gravity=0 enemy(a).fly_dir=1 endif if get static collision y()>0 enemy(a).jump=0 enemy(a).gravity=-0.1 enemy(a).fly_dir=0 endif endif rem enemy to moving platform collision for b=0 to moving_platform_qty-1 if object collision(enemy(a).object_num,b+2000)>0 enemy(a).pos_x=enemy(a).pos_x-get object collision x() enemy(a).pos_y=enemy(a).pos_y-get object collision y() enemy(a).pos_z=enemy(a).pos_z-get object collision z() if get object collision y()<0 enemy(a).jump=0 enemy(a).jump_angle=0 enemy(a).gravity=0 endif if get object collision y()>0 enemy(a).jump=0 enemy(a).gravity=-0.1 endif endif next b rem reposition enemy if it drops into warp tunnel if enemy(a).pos_y<-500 enemy(a).pos_x=level_offset enemy(a).pos_y=3000 enemy(a).pos_z=0 enemy(a).jump_angle=0 endif endif rem update enemy positions and orientation position object enemy(a).object_num,enemy(a).pos_x,enemy(a).pos_y,enemy(a).pos_z if enemy(a).trapped<1 rotate object enemy(a).object_num,0,enemy(a).ang_y,0 else turn object left enemy(a).object_num,1.5 pitch object up enemy(a).object_num,1.5 endif endif next a rem bubbles for a=0 to max_bubbles-1 bubble_code(a) next a rem enemy bullets for a=0 to enemy_qty-1 if enemy_bullet(a).life>0 then enemy_bullet_code(a) next a rem enemy bonuses for a=0 to bonus_qty-1 if bonus(a).life>0 then bonus_control(a) next a endif rem click delay control if mouseclick()<1 then clickdelay=0 if menu<1 and high_score<1 rem display hud ink 0,0 box 0,0,screen width(),20 ink rgb(255,255,255),0 text 0,0,"Score: "+str$(player.score) center text screen width()/2,0,"Level "+str$(level_number) lives=player.life if lives<0 then lives=0 text screen width()-100,0,"lives: "+str$(lives) rem level timer level_timer=timer()-level_start_time if level_timer>60000 and live_enemies>0 and hurry_up=0 hurry_up=timer() play sound 6 stop music 1 endif rem send death after player if level_timer>75000 and live_enemies>0 and death_active=0 death_active=1 position object 5,level_offset,950,0 show object 5 loop sound 9 endif rem hurry up time if hurry_up>1 rem flash hurry up message ink rgb(rnd(255),rnd(255),rnd(255)),0 center text screen width()/2,screen height()/2,"Hurry UP!!" if timer()-hurry_up>2000 hurry_up=-1 rem make enemies mad for a=0 to enemy_qty-1 if enemy(a).life>0 and enemy(a).mad<1 then make_enemy_mad(a) next a rem play faster music loop music 1 set music speed 1,120 rem reset mousemove a=mousemovex() a=mousemovey() endif endif rem end level time if end_level>0 and timer()-end_level>9000 inc level_number if level_number>level_qty then level_number=1 ink rgb(255,255,255),0 center text screen width()/2,screen height()/2,"Next Level!" sync if hurry_up<0 then stop music 1 gosub new_level endif endif rem scroll mist if object exist(9000)>0 scroll object texture 9000,0.0001,0.0001 scroll object texture 9001,0.0003,0.0005 endif sync loop function basic_ai(a) rem initiate a random chance turn if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 and rnd(300)<1 then enemy(a).hit_wall=1 rem if baddie is hitting a wall apply a destination y angle for him to turn to and a turn direction if enemy(a).hit_wall>0 and enemy(a).ai_turn_dir=0 ang=rnd(180)-90 if ang>0 inc ang,60 enemy(a).ai_turn_dir=1 else dec ang,60 enemy(a).ai_turn_dir=2 endif enemy(a).ai_dest_ang_y=wrapvalue(enemy(a).ang_y+ang) enemy(a).hit_wall=0 endif rem turn baddie to destination angle if enemy(a).ai_turn_dir>0 if wrapvalue(enemy(a).ai_dest_ang_y-enemy(a).ang_y)>5 if enemy(a).ai_turn_dir>1 enemy(a).ang_y=wrapvalue(enemy(a).ang_y-3) else enemy(a).ang_y=wrapvalue(enemy(a).ang_y+3) endif else enemy(a).ai_turn_dir=0 endif endif rem initiate a random jump if rnd(120)<1 and enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 enemy(a).jump=2.5 enemy(a).jump_angle=enemy(a).ang_y endif rem move enemy forward if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 enemy(a).pos_x=newxvalue(enemy(a).pos_x,enemy(a).ang_y,enemy(a).speed) enemy(a).pos_z=newzvalue(enemy(a).pos_z,enemy(a).ang_y,enemy(a).speed) endif endfunction function platform_patrol_ai(a) rem check if near platform edge if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 old_x1#=enemy(a).pos_x-(enemy(a).size_x/2) old_y1#=enemy(a).pos_y-(enemy(a).size_y/2) old_z1#=enemy(a).pos_z-(enemy(a).size_z/2) old_x2#=enemy(a).pos_x+(enemy(a).size_x/2) old_y2#=enemy(a).pos_y+(enemy(a).size_y/2) old_z2#=enemy(a).pos_z+(enemy(a).size_z/2) x1#=newxvalue(enemy(a).pos_x,enemy(a).ang_y,(enemy(a).speed*40))-(enemy(a).size_x/2) y1#=enemy(a).pos_y-(enemy(a).size_y/2)-1 z1#=newzvalue(enemy(a).pos_z,enemy(a).ang_y,(enemy(a).speed*40))-(enemy(a).size_z/2) x2#=newxvalue(enemy(a).pos_x,enemy(a).ang_y,(enemy(a).speed*40))+(enemy(a).size_x/2) y2#=enemy(a).pos_y+(enemy(a).size_y/2)-1 z2#=newzvalue(enemy(a).pos_z,enemy(a).ang_y,(enemy(a).speed*40))+(enemy(a).size_z/2) hit=get static collision hit(old_x1#,old_y1#,old_z1#,old_x2#,old_y2#,old_z2#,x1#,y1#,z1#,x2#,y2#,z2#) if get static collision y()=0 then enemy(a).hit_wall=1 endif rem if baddie is hitting a wall apply a destination y angle for him to turn to and a turn direction if enemy(a).hit_wall>0 and enemy(a).ai_turn_dir=0 ang=rnd(180)-90 if ang>0 inc ang,60 enemy(a).ai_turn_dir=1 else dec ang,60 enemy(a).ai_turn_dir=2 endif enemy(a).ai_dest_ang_y=wrapvalue(enemy(a).ang_y+ang) endif rem turn baddie to destination angle if enemy(a).ai_turn_dir>0 if wrapvalue(enemy(a).ai_dest_ang_y-enemy(a).ang_y)>5 if enemy(a).ai_turn_dir>1 enemy(a).ang_y=wrapvalue(enemy(a).ang_y-3) else enemy(a).ang_y=wrapvalue(enemy(a).ang_y+3) endif else enemy(a).ai_turn_dir=0 endif endif rem move enemy forward if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 enemy(a).pos_x=newxvalue(enemy(a).pos_x,enemy(a).ang_y,enemy(a).speed) enemy(a).pos_z=newzvalue(enemy(a).pos_z,enemy(a).ang_y,enemy(a).speed) endif endfunction function springer_ai(a) rem if baddie is hitting a wall apply a destination y angle for him to turn to and a turn direction if enemy(a).hit_wall>0 and enemy(a).ai_turn_dir=0 ang=rnd(180)-90 if ang>0 inc ang,60 enemy(a).ai_turn_dir=1 else dec ang,60 enemy(a).ai_turn_dir=2 endif enemy(a).ai_dest_ang_y=wrapvalue(enemy(a).ang_y+ang) endif rem turn baddie to destination angle if enemy(a).ai_turn_dir>0 if wrapvalue(enemy(a).ai_dest_ang_y-enemy(a).ang_y)>5 if enemy(a).ai_turn_dir>1 enemy(a).ang_y=wrapvalue(enemy(a).ang_y-5) else enemy(a).ang_y=wrapvalue(enemy(a).ang_y+5) endif else enemy(a).ai_turn_dir=0 endif endif rem initiate a random jump if enemy(a).gravity=0 enemy(a).jump=2 enemy(a).jump_angle=enemy(a).ang_y endif rem move enemy forward if enemy(a).gravity=0 enemy(a).pos_x=newxvalue(enemy(a).pos_x,enemy(a).ang_y,enemy(a).speed) enemy(a).pos_z=newzvalue(enemy(a).pos_z,enemy(a).ang_y,enemy(a).speed) endif endfunction function ghost_ai(a) rem shoot if enemy(a).gravity>=0 and rnd(100)<1 and enemy_bullet(a).life<1 show object enemy(a).object_num+50 enemy_bullet(a).pos_x=enemy(a).pos_x enemy_bullet(a).pos_y=enemy(a).pos_y enemy_bullet(a).pos_z=enemy(a).pos_z enemy_bullet(a).ang_y=enemy(a).ang_y enemy_bullet(a).life=999 endif rem initiate a random chance turn if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 and rnd(300)<1 then enemy(a).hit_wall=1 rem if baddie is hitting a wall apply a destination y angle for him to turn to and a turn direction if enemy(a).hit_wall>0 and enemy(a).ai_turn_dir=0 ang=rnd(180)-90 if ang>0 inc ang,60 enemy(a).ai_turn_dir=1 else dec ang,60 enemy(a).ai_turn_dir=2 endif enemy(a).ai_dest_ang_y=wrapvalue(enemy(a).ang_y+ang) enemy(a).hit_wall=0 endif rem turn baddie to destination angle if enemy(a).ai_turn_dir>0 if wrapvalue(enemy(a).ai_dest_ang_y-enemy(a).ang_y)>5 if enemy(a).ai_turn_dir>1 enemy(a).ang_y=wrapvalue(enemy(a).ang_y-3) else enemy(a).ang_y=wrapvalue(enemy(a).ang_y+3) endif else enemy(a).ai_turn_dir=0 endif endif rem initiate a random jump if rnd(120)<1 and enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 enemy(a).jump=2.5 enemy(a).jump_angle=enemy(a).ang_y endif rem move enemy forward if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 enemy(a).pos_x=newxvalue(enemy(a).pos_x,enemy(a).ang_y,enemy(a).speed) enemy(a).pos_z=newzvalue(enemy(a).pos_z,enemy(a).ang_y,enemy(a).speed) endif endfunction function ghost_patrol_ai(a) rem shoot if enemy(a).gravity>=0 and rnd(100)<1 and enemy_bullet(a).life<1 show object enemy(a).object_num+50 enemy_bullet(a).pos_x=enemy(a).pos_x enemy_bullet(a).pos_y=enemy(a).pos_y enemy_bullet(a).pos_z=enemy(a).pos_z enemy_bullet(a).ang_y=enemy(a).ang_y enemy_bullet(a).life=999 endif rem check if near platform edge if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 old_x1#=enemy(a).pos_x-(enemy(a).size_x/2) old_y1#=enemy(a).pos_y-(enemy(a).size_y/2) old_z1#=enemy(a).pos_z-(enemy(a).size_z/2) old_x2#=enemy(a).pos_x+(enemy(a).size_x/2) old_y2#=enemy(a).pos_y+(enemy(a).size_y/2) old_z2#=enemy(a).pos_z+(enemy(a).size_z/2) x1#=newxvalue(enemy(a).pos_x,enemy(a).ang_y,(enemy(a).speed*40))-(enemy(a).size_x/2) y1#=enemy(a).pos_y-(enemy(a).size_y/2)-1 z1#=newzvalue(enemy(a).pos_z,enemy(a).ang_y,(enemy(a).speed*40))-(enemy(a).size_z/2) x2#=newxvalue(enemy(a).pos_x,enemy(a).ang_y,(enemy(a).speed*40))+(enemy(a).size_x/2) y2#=enemy(a).pos_y+(enemy(a).size_y/2)-1 z2#=newzvalue(enemy(a).pos_z,enemy(a).ang_y,(enemy(a).speed*40))+(enemy(a).size_z/2) hit=get static collision hit(old_x1#,old_y1#,old_z1#,old_x2#,old_y2#,old_z2#,x1#,y1#,z1#,x2#,y2#,z2#) if get static collision y()=0 then enemy(a).hit_wall=1 endif rem if baddie is hitting a wall apply a destination y angle for him to turn to and a turn direction if enemy(a).hit_wall>0 and enemy(a).ai_turn_dir=0 ang=rnd(180)-90 if ang>0 inc ang,60 enemy(a).ai_turn_dir=1 else dec ang,60 enemy(a).ai_turn_dir=2 endif enemy(a).ai_dest_ang_y=wrapvalue(enemy(a).ang_y+ang) enemy(a).hit_wall=0 endif rem turn baddie to destination angle if enemy(a).ai_turn_dir>0 if wrapvalue(enemy(a).ai_dest_ang_y-enemy(a).ang_y)>5 if enemy(a).ai_turn_dir>1 enemy(a).ang_y=wrapvalue(enemy(a).ang_y-3) else enemy(a).ang_y=wrapvalue(enemy(a).ang_y+3) endif else enemy(a).ai_turn_dir=0 endif endif rem move enemy forward if enemy(a).gravity=0 and enemy(a).ai_turn_dir=0 enemy(a).pos_x=newxvalue(enemy(a).pos_x,enemy(a).ang_y,enemy(a).speed) enemy(a).pos_z=newzvalue(enemy(a).pos_z,enemy(a).ang_y,enemy(a).speed) endif endfunction function flying_ghost_ai(a) rem make enemy fly up or down if enemy(a).fly_dir>0 enemy(a).gravity=1 else enemy(a).gravity=-1 endif rem if baddie is hitting a wall apply a destination y angle for him to turn to and a turn direction if enemy(a).hit_wall>0 and enemy(a).ai_turn_dir=0 ang=rnd(180)-90 if ang>0 inc ang,60 enemy(a).ai_turn_dir=1 else dec ang,60 enemy(a).ai_turn_dir=2 endif enemy(a).ai_dest_ang_y=wrapvalue(enemy(a).ang_y+ang) enemy(a).hit_wall=0 endif rem turn baddie to destination angle if enemy(a).ai_turn_dir>0 if wrapvalue(enemy(a).ai_dest_ang_y-enemy(a).ang_y)>5 if enemy(a).ai_turn_dir>1 enemy(a).ang_y=wrapvalue(enemy(a).ang_y-3) else enemy(a).ang_y=wrapvalue(enemy(a).ang_y+3) endif else enemy(a).ai_turn_dir=0 endif endif rem move enemy forward if enemy(a).ai_turn_dir=0 move object enemy(a).object_num,enemy(a).speed enemy(a).pos_x=object position x(enemy(a).object_num) enemy(a).pos_z=object position z(enemy(a).object_num) endif endfunction function make_enemy_mad(a) rem speed up enemy and retexture them enemy(a).mad=1 enemy(a).speed=enemy(a).speed*2 set object speed enemy(a).object_num,enemy(a).animation_speed*2 texture object enemy(a).object_num,enemy(a).texture_num+1 endfunction function bubble_code(bubble_num) if player_bubble(bubble_num).life>0 bubble_obj_num=bubble_num+10 rem bubble to enemy enemy collision if player_bubble(bubble_num).speed>3 and player_bubble(bubble_num).enemy_trapped<0 for a=0 to enemy_qty-1 rem trapping nearby enemy in bubble if enemy(a).trapped<1 and enemy(a).life>0 if distance_3d(player_bubble(bubble_num).pos_x,enemy(a).pos_x,player_bubble(bubble_num).pos_y,enemy(a).pos_y,player_bubble(bubble_num).pos_z,enemy(a).pos_z)<32 enemy(a).trapped=1 player_bubble(bubble_num).enemy_trapped=a player_bubble(bubble_num).scale=495 play object enemy(a).object_num,0,0 exit endif endif next enemy endif rem bubble to player collision if object collision(bubble_obj_num,1)>0 rem burst bubble if player jumps up into it if player.gravity>0 and player_bubble(bubble_num).pos_y>player.pos_y player.score=player.score+10 player_bubble(bubble_num).life=0 endif rem jump if space is pressed and player drops on bubble or else burst if player.gravity<0 and player_bubble(bubble_num).pos_y<player.pos_y player.score=player.score+10 if spacekey()>0 and player.pos_y<950 player.jump=2.5 play sound 2 if keystate(17)>0 player.jump_angle=player.ang_y else player.jump_angle=0 endif else player_bubble(bubble_num).life=0 endif endif rem kill trapped badguy if player_bubble(bubble_num).life=0 and player_bubble(bubble_num).enemy_trapped>-1 rem score for killing enemy player.score=player.score+enemy(player_bubble(bubble_num).enemy_trapped).value rem double score for killing mad enemy if enemy(player_bubble(bubble_num).enemy_trapped).mad>0 then player.score=player.score+enemy(player_bubble(bubble_num).enemy_trapped).value enemy(player_bubble(bubble_num).enemy_trapped).life=0 hide object enemy(player_bubble(bubble_num).enemy_trapped).object_num dec live_enemies rem make last enemy mad if live_enemies=1 for a=0 to enemy_qty-1 if enemy(a).life>0 and enemy(a).mad<1 then make_enemy_mad(a) next a endif rem if all enemies are dead trigger end of level procedure if live_enemies<1 rem set end level timer end_level=timer() rem busrt all bubbles for a=0 to max_bubbles-1 player_bubble(a).life=1 next a rem deactivate death if active if death_active>0 death_active=0 hide object 5 stop sound 9 endif rem activate level complete bonuses for bonus=level_bonus_qty to level_bonus_qty+7 bonus(bonus).life=1 bonus(bonus).pos_x=level_offset bonus(bonus).pos_y=550 bonus(bonus).pos_z=0 bonus(bonus).jump=(rnd(10)+2)/10 bonus(bonus).jump_angle=rnd(359) show object bonus(bonus).object_num next bonus endif rem activate bonus pickup a=enemy(player_bubble(bubble_num).enemy_trapped).bonus bonus(a).life=1 show object bonus(a).object_num bonus(a).pos_x=player_bubble(bubble_num).pos_x bonus(a).pos_y=player_bubble(bubble_num).pos_y bonus(a).pos_z=player_bubble(bubble_num).pos_z bonus(a).jump=2.5 bonus(a).jump_angle=rnd(359) play sound 3 endif endif rem decrease speed of bubble if player_bubble(bubble_num).speed>0 then dec player_bubble(bubble_num).speed,0.05 rem scale bubble if player_bubble(bubble_num).scale<500 inc player_bubble(bubble_num).scale,5 scale object bubble_obj_num,player_bubble(bubble_num).scale,player_bubble(bubble_num).scale,player_bubble(bubble_num).scale endif rem update bubble x,z positions player_bubble(bubble_num).pos_x=newxvalue(player_bubble(bubble_num).pos_x,player_bubble(bubble_num).ang_y,player_bubble(bubble_num).speed) player_bubble(bubble_num).pos_z=newzvalue(player_bubble(bubble_num).pos_z,player_bubble(bubble_num).ang_y,player_bubble(bubble_num).speed) rem gravity float bubble if player_bubble(bubble_num).enemy_trapped>-1 max_gavity=2 else max_gavity=4 endif if player_bubble(bubble_num).gravity<max_gavity then player_bubble(bubble_num).gravity=player_bubble(bubble_num).gravity+0.02 player_bubble(bubble_num).pos_y=player_bubble(bubble_num).pos_y+player_bubble(bubble_num).gravity rem warp tunnel if player_bubble(bubble_num).pos_y>1500 player_bubble(bubble_num).pos_x=level_offset player_bubble(bubble_num).pos_y=-500 player_bubble(bubble_num).pos_z=0 endif rem bubble to level collision if get static collision hit(player_bubble(bubble_num).old_pos_x-27,player_bubble(bubble_num).old_pos_y-27,player_bubble(bubble_num).old_pos_z-27,player_bubble(bubble_num).old_pos_x+27,player_bubble(bubble_num).old_pos_y+27,player_bubble(bubble_num).old_pos_z+27,player_bubble(bubble_num).pos_x-27,player_bubble(bubble_num).pos_y-27,player_bubble(bubble_num).pos_z-27,player_bubble(bubble_num).pos_x+27,player_bubble(bubble_num).pos_y+27,player_bubble(bubble_num).pos_z+27)>0 player_bubble(bubble_num).pos_x=player_bubble(bubble_num).pos_x-get static collision x() player_bubble(bubble_num).pos_y=player_bubble(bubble_num).pos_y-get static collision y() player_bubble(bubble_num).pos_z=player_bubble(bubble_num).pos_z-get static collision z() rem give bubble some speed so it moves along under platforms and ceiling when collision occurs if get static collision y()>0 then player_bubble(bubble_num).speed=0.5 rem if bubble is close to ceiling then re-orientate bubble towards centre if player_bubble(bubble_num).pos_y>900 point object bubble_obj_num,0+level_offset,player_bubble(bubble_num).pos_y,0 player_bubble(bubble_num).ang_y=object angle y(bubble_obj_num) endif endif rem bubble to moving platform collision for b=0 to moving_platform_qty-1 if object collision(bubble_obj_num,b+2000)>0 player_bubble(bubble_num).pos_x=player_bubble(bubble_num).pos_x-get object collision x() player_bubble(bubble_num).pos_y=player_bubble(bubble_num).pos_y-get object collision y() player_bubble(bubble_num).pos_z=player_bubble(bubble_num).pos_z-get object collision z() if get object collision y()>0 then player_bubble(bubble_num).speed=0.5 endif next b rem hold old bubble positions player_bubble(bubble_num).old_pos_x=player_bubble(bubble_num).pos_x player_bubble(bubble_num).old_pos_y=player_bubble(bubble_num).pos_y player_bubble(bubble_num).old_pos_z=player_bubble(bubble_num).pos_z rem position bubble object position object bubble_obj_num,player_bubble(bubble_num).pos_x,player_bubble(bubble_num).pos_y,player_bubble(bubble_num).pos_z rem rotate bubble turn object left bubble_obj_num,2 pitch object up bubble_obj_num,2 rem position trapped enemy in bubble if player_bubble(bubble_num).enemy_trapped>-1 enemy(player_bubble(bubble_num).enemy_trapped).pos_x=player_bubble(bubble_num).pos_x enemy(player_bubble(bubble_num).enemy_trapped).pos_y=player_bubble(bubble_num).pos_y enemy(player_bubble(bubble_num).enemy_trapped).pos_z=player_bubble(bubble_num).pos_z endif rem burst bubble if bubble life runs high if timer()-player_bubble(bubble_num).life>30000 then player_bubble(bubble_num).life=0 rem free any trapped baddies if player_bubble(bubble_num).life<1 hide object bubble_obj_num position sound 1,player_bubble(bubble_num).pos_x,player_bubble(bubble_num).pos_y,player_bubble(bubble_num).pos_z play sound 1 if player_bubble(bubble_num).enemy_trapped>-1 rem change platform patrol ai to basic ai if enemy(player_bubble(bubble_num).enemy_trapped).enemy_type=2 then enemy(player_bubble(bubble_num).enemy_trapped).enemy_type=1 if enemy(player_bubble(bubble_num).enemy_trapped).enemy_type=5 then enemy(player_bubble(bubble_num).enemy_trapped).enemy_type=4 rem loop animation on freed enemy if enemy(player_bubble(bubble_num).enemy_trapped).enemy_type<3 or enemy(player_bubble(bubble_num).enemy_trapped).enemy_type=4 then loop object enemy(player_bubble(bubble_num).enemy_trapped).object_num,0,20 enemy(player_bubble(bubble_num).enemy_trapped).trapped=0 if enemy(player_bubble(bubble_num).enemy_trapped).mad<1 then make_enemy_mad(player_bubble(bubble_num).enemy_trapped) player_bubble(bubble_num).enemy_trapped=-1 endif endif endif endfunction function enemy_bullet_code(a) rem update bullet position enemy_bullet(a).pos_x=newxvalue(enemy_bullet(a).pos_x,enemy_bullet(a).ang_y,6) enemy_bullet(a).pos_z=newzvalue(enemy_bullet(a).pos_z,enemy_bullet(a).ang_y,6) position object enemy(a).object_num+50,enemy_bullet(a).pos_x,enemy_bullet(a).pos_y,enemy_bullet(a).pos_z rem rotate enemy bullet turn object left enemy(a).object_num+50,6 pitch object up enemy(a).object_num+50,6 enemy_bullet(a).life=enemy_bullet(a).life-1 rem bullet to player collision if object hit(enemy(a).object_num+50,1)>0 and player.invincible<1 and player.life>-1 and player.death_animation<1 player.death_animation=1 player.invincible=1 player.life=player.life-1 level_start_time=timer() play sound 5 endif rem bullet to level collision old_x1#=enemy_bullet(a).pos_x-5 old_y1#=enemy_bullet(a).pos_y-5 old_z1#=enemy_bullet(a).pos_z-5 old_x2#=enemy_bullet(a).pos_x+5 old_y2#=enemy_bullet(a).pos_y+5 old_z2#=enemy_bullet(a).pos_z+5 x1#=enemy_bullet(a).pos_x-5 y1#=enemy_bullet(a).pos_y-5 z1#=enemy_bullet(a).pos_z-5 x2#=enemy_bullet(a).pos_x+5 y2#=enemy_bullet(a).pos_y+5 z2#=enemy_bullet(a).pos_z+5 if get static collision hit(old_x1#,old_y1#,old_z1#,old_x2#,old_y2#,old_z2#,x1#,y1#,z1#,x2#,y2#,z2#)>0 then enemy_bullet(a).life=0 rem hide bullet object if dead if enemy_bullet(a).life<1 then hide object enemy(a).object_num+50 endfunction function bonus_control(a) rem hold old bonus positions bonus(a).old_pos_x=bonus(a).pos_x bonus(a).old_pos_y=bonus(a).pos_y bonus(a).old_pos_z=bonus(a).pos_z rem jumping if bonus(a).bonus_type<1 if bonus(a).jump>0 inc bonus(a).jump,0.5 if bonus(a).jump>4.5 then bonus(a).jump=0 bonus(a).gravity=bonus(a).gravity+bonus(a).jump endif if bonus(a).gravity<>0 bonus(a).pos_x=newxvalue(bonus(a).pos_x,bonus(a).jump_angle,5) bonus(a).pos_z=newzvalue(bonus(a).pos_z,bonus(a).jump_angle,5) endif endif rem effect gravity on enemys if bonus(a).gravity>-25 then bonus(a).gravity=bonus(a).gravity-0.3 bonus(a).pos_y=bonus(a).pos_y+bonus(a).gravity rem bonus to player collision if object collision(bonus(a).object_num,1)>0 and bonus(a).jump=0 bonus(a).life=0 player.score=player.score+bonus(a).value if bonus(a).bonus_type<1 play sound 7 else play sound 8 endif endif rem bonus to level collison old_x1#=bonus(a).old_pos_x-12 old_y1#=bonus(a).old_pos_y-12 old_z1#=bonus(a).old_pos_z-12 old_x2#=bonus(a).old_pos_x+12 old_y2#=bonus(a).old_pos_y+12 old_z2#=bonus(a).old_pos_z+12 x1#=bonus(a).pos_x-12 y1#=bonus(a).pos_y-12 z1#=bonus(a).pos_z-12 x2#=bonus(a).pos_x+12 y2#=bonus(a).pos_y+12 z2#=bonus(a).pos_z+12 if get static collision hit(old_x1#,old_y1#,old_z1#,old_x2#,old_y2#,old_z2#,x1#,y1#,z1#,x2#,y2#,z2#)>0 bonus(a).pos_x=bonus(a).pos_x-get static collision x() bonus(a).pos_y=bonus(a).pos_y-get static collision y() bonus(a).pos_z=bonus(a).pos_z-get static collision z() if get static collision y()<0 bonus(a).jump=0 bonus(a).jump_angle=0 bonus(a).gravity=0 endif if get static collision y()>0 bonus(a).jump=0 bonus(a).gravity=-0.1 endif endif rem reposition bonus if it drops into warp tunnel if bonus(a).pos_y<-500 bonus(a).pos_x=level_offset bonus(a).pos_y=3000 bonus(a).pos_z=0 bonus(a).jump_angle=0 endif rem position bonus object position object bonus(a).object_num,bonus(a).pos_x,bonus(a).pos_y,bonus(a).pos_z rem hide bonus if it dies if bonus(a).life<1 then hide object bonus(a).object_num endfunction rem level creation function new_level: level_offset=level_offset+2000 rem delete level objects for a=1000 to 1050 if object exist(a)>0 then delete object a next a for a=2000 to 2050 if object exist(a)>0 then delete object a next a if object exist(9000)>0 delete object 9000 delete object 9001 endif rem delete enemy and enemy bonus objects for a=200 to 220 rem delete enemy object if it exists if object exist(a)>0 then delete object a rem delete enemy bullet object if it exists if object exist(a+50)>0 then delete object a+50 rem delete enemy bonus object if it exists if object exist(a+100)>0 then delete object a+100 next a rem delete big bonus objects for a=6000 to 6005 if object exist(a)>0 then delete object a next a rem delete mini bonus objects for a=7000 to 7100 if object exist(a)>0 then delete object a next a rem reset enemy bullet life for a=0 to 15 enemy_bullet(a).life=0 next a rem get level data start position restore repeat read a$ until a$="level "+str$(level_number) rem read level data read level_type read floor_tex_fn$ read ceiling_tex_fn$ read wall_tex_fn$ read platform_border_tex_fn$ read platform_floor_tex_fn$ read tunnel_tex_fn$ rem load level textures load image "media\level\"+ceiling_tex_fn$,1000 load image "media\level\"+floor_tex_fn$,1001 load image "media\level\"+wall_tex_fn$,1002 load image "media\level\"+platform_border_tex_fn$,1003 load image "media\level\"+platform_floor_tex_fn$,1004 load image "media\level\"+tunnel_tex_fn$,1005 rem load level object load object "media\level\level_"+str$(level_type)+".x",1000 position object 1000,0+level_offset,0,0 if level_type=0 rem texture level (limbs 1=ceiling / 2=floor / 3=walls) texture limb 1000,1,1000 texture limb 1000,2,1001 texture limb 1000,3,1002 rem create floor collision zones make static collision box -500+level_offset,-50,-500,500+level_offset,0,500 rem create ceiling collision zones make static collision box -500+level_offset,1000,-500,500+level_offset,1050,500 endif if level_type=1 rem texture level (limbs 1=floor / 2=ceiling / 3=walls / 4=tunnel) texture limb 1000,1,1001 texture limb 1000,2,1000 texture limb 1000,3,1002 texture limb 1000,4,1005 rem create floor collision zones make static collision box -500+level_offset,-50,-500,-165+level_offset,0,500 make static collision box 165+level_offset,-50,-500,500+level_offset,0,500 make static collision box -165+level_offset,-50,-500,165+level_offset,0,-165 make static collision box -165+level_offset,-50,165,165+level_offset,0,500 rem create ceiling collision zones make static collision box -500+level_offset,1000,-500,-165+level_offset,1050,500 make static collision box 165+level_offset,1000,-500,500+level_offset,1050,500 make static collision box -165+level_offset,1000,-500,165+level_offset,1050,-165 make static collision box -165+level_offset,1000,165,165+level_offset,1050,500 rem create mist effect planes make object plain 9000,800,800 xrotate object 9000,90 position object 9000,level_offset,-410,0 texture object 9000,986 ghost object on 9000 make object plain 9001,800,800 xrotate object 9001,90 position object 9001,level_offset,-400,0 texture object 9001,986 ghost object on 9001 endif rem create wall collision zones make static collision box -550+level_offset,0,-500,-500+level_offset,1000,500 make static collision box 500+level_offset,0,-500,550+level_offset,1000,500 make static collision box -500+level_offset,0,-550,500+level_offset,1000,-500 make static collision box -500+level_offset,0,500,500+level_offset,1000,550 rem create static platforms platform=1001 read platform_qty for a=1 to platform_qty read x read y read z read x_size read z_size make object box platform,x_size,30,z_size make object box platform+1,x_size-10,10,z_size-10 position object platform,x+level_offset,y,z position object platform+1,x+level_offset,y+10.5,z texture object platform,1003 texture object platform+1,1004 inc platform,2 rem create platform collision zone make static collision box x-(x_size/2)+level_offset,y-16,z-(z_size/2),x+(x_size/2)+level_offset,y+16,z+(z_size/2) next a rem create moving platforms read moving_platform_qty platform=2000 for a=0 to moving_platform_qty-1 read x_size read z_size read moving_platform(a).waypoint_qty for b=0 to moving_platform(a).waypoint_qty-1 read platform_wp_x(a,b) platform_wp_x(a,b)=platform_wp_x(a,b)+level_offset read platform_wp_y(a,b) read platform_wp_z(a,b) next b moving_platform(a).next_waypoint=1 make object box platform,x_size,30,z_size make object box platform+1,x_size-10,10,z_size-10 texture object platform,1003 texture object platform+1,1004 make object box platform+2,5,5,5 position object platform+2,platform_wp_x(a,0),platform_wp_y(a,0),platform_wp_z(a,0) hide object platform+2 make object collision box platform,0-(x_size/2),-15,0-(z_size/2),(x_size/2),15,(z_size/2),0 inc platform,3 next a rem create enemies read enemy_qty live_enemies=enemy_qty for a=0 to enemy_qty-1 enemy(a).object_num=a+200 enemy(a).life=1 enemy(a).bonus=a enemy(a).ang_y=rnd(359) enemy(a).trapped=0 enemy(a).mad=0 read enemy_type read enemy(a).pos_x read enemy(a).pos_y read enemy(a).pos_z enemy(a).enemy_type=enemy_type enemy(a).pos_x=enemy(a).pos_x+level_offset rem clockwork baddie setup if enemy_type<3 load object "media\characters\baddie_1.x",enemy(a).object_num loop object enemy(a).object_num enemy(a).animation_speed=65 set object speed enemy(a).object_num,enemy(a).animation_speed enemy(a).size_x=20 enemy(a).size_y=32 enemy(a).size_z=20 enemy(a).speed=2 enemy(a).texture_num=100 enemy(a).value=1000 endif if enemy_type=3 load object "media\characters\baddie_2.x",enemy(a).object_num loop object enemy(a).object_num enemy(a).animation_speed=0 enemy(a).size_x=20 enemy(a).size_y=32 enemy(a).size_z=20 enemy(a).speed=2 enemy(a).texture_num=102 enemy(a).value=2000 endif if enemy_type=4 or enemy_type=5 load object "media\characters\baddie_3.x",enemy(a).object_num loop object enemy(a).object_num enemy(a).animation_speed=65 set object speed enemy(a).object_num,enemy(a).animation_speed enemy(a).size_x=20 enemy(a).size_y=32 enemy(a).size_z=20 enemy(a).speed=2 enemy(a).texture_num=104 enemy(a).value=1500 rem make enemy bullet object make object sphere enemy(a).object_num+50,12 texture object enemy(a).object_num+50,987 hide object enemy(a).object_num+50 make object collision box enemy(a).object_num+50,-5,-5,-5,5,5,5,0 endif if enemy_type=6 load object "media\characters\baddie_4.x",enemy(a).object_num enemy(a).size_x=20 enemy(a).size_y=32 enemy(a).size_z=20 enemy(a).speed=3 enemy(a).texture_num=106 enemy(a).value=2000 enemy(a).fly_dir=0 endif make object collision box enemy(a).object_num,0-(enemy(a).size_x/2),0-(enemy(a).size_y/2),0-(enemy(a).size_z/2),enemy(a).size_x/2,enemy(a).size_y/2,enemy(a).size_z/2,0 position object enemy(a).object_num,0+level_offset,1500,0 next a rem load bonuses bonus_qty=enemy_qty rem load enemy bonuses for a=0 to bonus_qty-1 rem set bonus type to 0 (enemy bonus) bonus(a).bonus_type=0 rem apply bonus object number bonus(a).object_num=a+300 rem apply a random enemy bonus r=rnd(3) if r=0 load object "media\bonuses\bannanas.x",bonus(a).object_num bonus(a).value=100 endif if r=1 load object "media\bonuses\apple.x",bonus(a).object_num bonus(a).value=200 endif if r=2 load object "media\bonuses\pumpkin.x",bonus(a).object_num bonus(a).value=300 endif if r=3 load object "media\bonuses\cherries.x",bonus(a).object_num bonus(a).value=150 endif hide object bonus(a).object_num next a rem load level bonuses read level_bonus_qty if level_bonus_qty>0 for a=bonus_qty to (bonus_qty+level_bonus_qty)-1 read bonus(a).bonus_type rem apply bonus object number bonus(a).object_num=a+300 read bonus(a).pos_x bonus(a).pos_x=bonus(a).pos_x+level_offset read bonus(a).pos_y read bonus(a).pos_z bonus(a).life=1 if bonus(a).bonus_type=1 load object "media/bonuses/gem.x",bonus(a).object_num bonus(a).value=10000 endif next a bonus_qty=bonus_qty+level_bonus_qty endif rem load level complete bonuses (8 qty) for a=bonus_qty to (bonus_qty+7) bonus(a).bonus_type=0 bonus(a).object_num=a+300 rem apply a random level complete bonus r=rnd(3) if r=0 load object "media\bonuses\bannanas.x",bonus(a).object_num bonus(a).value=100 endif if r=1 load object "media\bonuses\apple.x",bonus(a).object_num bonus(a).value=200 endif if r=2 load object "media\bonuses\pumpkin.x",bonus(a).object_num bonus(a).value=300 endif if r=3 load object "media\bonuses\cherries.x",bonus(a).object_num bonus(a).value=150 endif hide object bonus(a).object_num next a bonus_qty=bonus_qty+8 rem position player player.pos_x=-350+level_offset player.pos_y=50 player.pos_z=-350 rem reset level timers and music level_start_time=timer() if hurry_up<0 loop music 1 set music speed 1,100 endif hurry_up=0 end_level=0 return function distance_3d(x1#,x2#,y1#,y2#,z1#,z2#) disx#=x2#-x1# disy#=y2#-y1# disz#=z2#-z1# dis#=abs(sqrt((disx#*disx#)+(disy#*disy#)+(disz#*disz#))) endfunction dis# menu: if mouseclick()>0 or spacekey()>0 center text screen width()/2,screen height()/2,"Get Ready!" sync menu=0 player.score=0 player.extra_life=100000 player.life=3 level_number=1 gosub new_level show object 1 loop music 1 set music speed 1,100 else rem menu text center text screen width()/2,40,"Bubble Bobble 3D" rem display scoreboard center text screen width()/2,100,"Top Scores" y=140 for a=0 to 9 center text screen width()/2,y,str$(a+1)+") "+scoreboard_name$(a)+" - "+str$(scoreboard_score(a)) inc y,20 next a center text screen width()/2,400,"Created in DarkBASIC Professional by Thomas Long" center text screen width()/2,420,"Music by Wendell Norman" rem camera follow enemy camx#=curvevalue(newxvalue(object position x(enemy(enemy_cam).object_num),enemy(enemy_cam).ang_y,-60),camx#,8) camy#=curvevalue(newyvalue(object position y(enemy(enemy_cam).object_num)+50,0,-60),camy#,5) camz#=curvevalue(newzvalue(object position z(enemy(enemy_cam).object_num),enemy(enemy_cam).ang_y,-60),camz#,8) position camera camx#,camy#,camz# point camera newxvalue(object position x(enemy(enemy_cam).object_num),enemy(enemy_cam).ang_y,60),newyvalue(object position y(enemy(enemy_cam).object_num),0,60),newzvalue(object position z(enemy(enemy_cam).object_num),enemy(enemy_cam).ang_y,60) endif return high_score_entry: rem text entry new$=entry$() for n=1 to len(new$) if asc(mid$(new$,n))=8 line$=left$(line$,len(line$)-1) else line$=line$+mid$(new$,n) endif next n clear entry buffer rem display text center text screen width()/2,screen height()/2,"High score! Enter your name." center text screen width()/2,screen height()/2+20,line$ rem add score to scoreboard if returnkey()>0 for b=9 to high_score-1 step -1 scoreboard_name$(b)=scoreboard_name$(b-1) scoreboard_score(b)=scoreboard_score(b-1) next b scoreboard_name$(high_score-1)=line$ scoreboard_score(high_score-1)=player.score high_score=0 menu=1 remstart save scoreboard to file if file exist("scores.dat") then delete file "scores.dat" open to write 1,"scores.dat" for a=0 to 9 write string 1,scoreboard_name$(a) write file 1,scoreboard_score(a) next a close file 1 remend endif return